home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-03-15 | 69.6 KB | 487 lines | [ TEXT/ttxt]
# compilation (2.1) of exports.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> exports.dylanE dylancollection-extensionsstring-conversionscharacter-typestring-hackingsubstring-searchregular-expressionsF string-to-integerinteger-to-stringdigit-to-integerinteger-to-digitF extensions alpha?digit? alphanumeric? whitespace? uppercase? lowercase? hex-digit?graphic? printable? punctuation?control?byte-character?F parse-string predecessor successoradd-lastcase-insensitive-equal<character-set> <case-sensitive-character-set> <case-insensitive-character-set><byte-character-table>F subseq do-replacementsubstring-positionmake-substring-positionersubstring-replacemake-substring-replacerF " # regexp-positionmake-regexp-positionerregexp-replacemake-regexp-replacer translatemake-translatorsplit make-splitterjoinF # #F <parse-string>consume lookaheadparse-string-done?ˇ# compilation (2.1) of character-type.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> character-type.dylan=character-typeCalpha?7 Define Method alpha?)+%6 %2 <character>4<type>4%define-method2 9 7 ( )+&()*c a z A Z1 ˜ 1!Û `P P1"˜ 1#Û4list †°`≤#$µPëÇ &Cdigit?7 Define Method digit?)+,6 ,2 4 4 2 9 7 )+-)* 0 91 ˜ 1!Û4 †°`≤#$µPëÇ &C alphanumeric?7 Define Method alphanumeric?)+36 32 4 4 2 9 7 B )+4B)* a z A Z 0 91 ˜ 1!Û `P P1"˜ 1#Û aQ Q1$˜ 1%Û4 †°`≤#$µPëÇ &C whitespace?7 Define Method whitespace?)+:6 :2 4 4 2 9 7 6 ++;)* +<1 +> 1`P ı P!ı P"ı P#ı P$ı 4 †°`≤#$µPëÇ &C uppercase?7 Define Method uppercase?)+E6 E2 4 4 2 9 7 )+F)* A Z1 ˜ 1!Û4 †°`≤#$µPëÇ &C lowercase?7 Define Method lowercase?)+L6 L2 4 4 2 9 7 )+M)* a z1 ˜ 1!Û4 †°`≤#$µPëÇ &C hex-digit?7 Define Method hex-digit?)+S6 S2 4 4 2 9 7 B )+TB)* 0 9 a f A F1 ˜ 1!Û `P P1"˜ 1#Û aQ Q1$˜ 1%Û4 †°`≤#$µPëÇ &Cgraphic?7 Define Method graphic?)+Z6 Z2 4 4 2 9 7 )+[)* 6 [2 6 [2 punctuation?∞1ë`P P±1q4 †°`≤#$µPëÇ &C printable?7 Define Method printable?)+a6 a2 4 4 2 9 7 )+b)* 6 b2 6 b2 ∞1ë`P P±1q4 †°`≤#$µPëÇ &C 7 Define Method punctuation?)+h6 h2 4 4 2 9 7 U 19+i)* +j +n +j +n +j +n +j +n +j +n +j +n +j +n +j +n +j +n +j +n +k +n +k +n +k +n +k +n +k +n +k +n +l +n +l +n +l +n +l +n +l +n +l +n +l +n +l +n +l +n +l +n +m +n +m +n +m +n +m +n +m +n +m +n +o , . / < > ? ; ' : " | \ [ ] { } ! @ # $ % ^ & * ( ) - = _ + ` ~1`P ı P!ı P"ı P#ı P$ı P%ı P&ı P'ı P(ı P)ı P*ı P+ı P,ı P-ı P.ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ı P/ ı P/ ı P/ ı P/ ı 4 †°`≤#$µPëÇ &Ccontrol?7 Define Method control?)+v6 v2 4 4 2 7 )+w )* 6 w2 ∞1ë 4 †°`≤#$µPëÇ &Cbyte-character?7 Define Method byte-character?)+ Ä6 Ä2 4 6 Ä2 <boolean>4 2 9 7 )+ Å )* 6 Å2as6 Å2 <integer>∞°2í Ú04 †°`¢°a≥$Q%∂Pë∂QëÇ 'ˇ# compilation (2.1) of conversions.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> conversions.dylan=string-conversionsCas7 Define Method as,+ +" +#+"4 singleton6 "2<string>4<type>6 "2 <character>4%define-method2 9 7 )+$ **c * the-class 6 $2make6 $2 sizefill∞°" #2ï04list ∞°ë¢`£¢a°¢b¥%R&∑PQí∑RëÇ (C check-base7 Define Method check-base)+*6 *2 <integer>4 4 2 9 7 & *++)*base+, 6 ,2error%d is not a legal base.4values1 Ú`P P 1 $¯ ∞!1Ç ≤p4 †°`≤#$µPëµêÇ &Cinteger-to-string7 Define Method integer-to-string++4+7+46 42 4 6 72 4 2 9 uppercase7 3 /+8+* * *num+9 +: +; +< += +> 6 82 06 <2 concatenate-6 <2positive-integer-to-string4negative∞3Å 4 Ù ! 4 Ú ≤#¥µ4ë32ìí ¥432ì04 †°`¢°a≥$Q%∂Pë∂QëÇ 'C 7 (Define Method positive-integer-to-string,+C+D+F+C6 C2 4 6 F2 4 2 9 7 ( /+G +* * * +H +I +J +K )* low-digit +L +L 6 J2modulo6 K2add-last6 K2 6 K2 truncate/6 L2integer-to-digit 4 Ù ±43í`≤≥¥43í32ìµP&3'2ïí04 4<object> †°`†°a¢°b≥$R%∂PQßì∂RëÇ (C "7 Define Method integer-to-digit++T+W+T6 T2 4 6 W2 4 2 "9 7 fi "1+X+* * *integer+Y $+Z $+] $+^ $+_ $+` $+a $+b $+c $+d $+e $+f $+g $+i $+j $6 X2 6 Z2 %d isn't a digit in base %d 0 1 2 3 4 5 6 7 8 96 i2 6 i2 6 j2 A a∞3Å 4 Ú`P P 43˜ ±"43É 4`P ı # ¢ P ı $ ì P ı % Ñ P ı & u P ı ' f P ı ( W P ı ) H P ı * 9 P ı + * P ı , ΩÆ4 ÒΩØ2 / /íí04 "†°`¢°a≥$Q%∂Pë∂QëÇ 'Cstring-to-integer7 Define Method string-to-integer++t+u+t6 t2 <sequence>4 6 u2 4 2 &9 7 w &1+v** *string +w (+w )*number (+x *+y )*sign *+z )* start-index ,+z )*i .+{ 0+| )*digit 0+} 2+~ 2+ 2+ Ç .+ Ç (6 v2 4element -6 z2 6 {2digit-to-integer6 }2 "%s" isn't in base %d 6 2*∞2Å `±3 í"ı ˇ aQ ˇÙ bRc3≥dSeTSÛ + ¥±3UíëfV2˜ µ&32É ∑P2íV`S c Δˇˇˇ∑QPí04 &†°`¢°a≥$Q%∂Pë∂QëÇ 'C 57 Define Method digit-to-integer)+ Ü6 Ü2 4 6 Ü2 4 2 59 7 Ω 51+ á )* + à 7+ ä 7+ ã 7+ å 7+ ç 7+ é 7+ è 7+ ê 7+ ë 7+ í 7+ ì 7+ î 7+ ñ 76 á2 alphanumeric?6 à2 Invalid digit %= 0 1 2 3 4 5 6 7 8 96 ñ2 6 ñ2 6 ñ2 as-lowercase a∞2ë ±"2Ç 2`P#ı ó P$ı à P%ı y P&ı j P'ı [ P(ı L P)ı = P*ı . P+ı P,ı ΩÆø2ëíΩÆ/íÒ 04 5†°`¢°a≥$Q%∂Pë∂QëÇ 'Cstring-to-number7 Define Method string-to-number++ §+ •+ §6 §2 '4 6 •2<number>4 2 :9 7 ´ :1 + ¶** * ) + ß )* + <+ ® )*negate =+ © )* seen-decimal >+ ™" )*decimal-divisor @+ ´ )* , B+ ¨ D+ ≠ D+ Æ D+ ∞ D+ ± )* 34 D+ ≤ E+ ≥ E+ ¥ E+ µ E+ ∂ E+ ∑ E+ ∑ D+ º B+ º <4forward-iteration-protocol - + .6 ∞2 56 ≤2 "%s" isn't in base %d 6 ¥2 66 µ2/6 µ2 6 µ2<float> ` ab c3d∞TÅ jihgfeXTUVì } ZTUík[l\!ı ˇa Z \"ı a J \#ı b ; ¥[ëm]2˜ µ&32É $ R ∑S2ícP∏π™]íπ™Síí` ∑P2í]`WTUíe sˇˇˇ∑PQí04 :†°`¢°a≥$Q%∂Pë∂QëÇ 'ˇ# compilation (2.1) of string-hacking.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> string-hacking.dylan=string-hackingCadd-last7 Define Method add-last++#+$+#6 #2<string>4<type>6 #2 <character>4%define-method2 9 7 )+%** character *string 6 %2 concatenate6 %2make6 %2 sizefill∞3±¢# $2ïí04list †°`¢°a†°b≥$R%∂PQí∂RëÇ 'C predecessor7 Define Method predecessor)++6 +2 4 4 2 9 7 )+, )*c 6 ,2as6 ,2 6 ,2<fixed-integer>∞°∞¢2í Òí04 †°`†°a≤#Q$µPëµQëÇ &C successor7 Define Method successor)+26 22 4 4 2 9 7 )+3 )* 6 32 6 32 6 32 ∞°∞¢2í í04 †°`†°a≤#Q$µPëµQëÇ &Ccase-insensitive-equal7 $Define Method case-insensitive-equal++7+8+76 72<object>4 6 82 <boolean>4 2 9 7 )+9**o2 *o1 04 †°`†°a¢°b≥$R%∂PQí∂RëÇ '@ a-minus-A7 Define Constant a-minus-A)+@6 @2 6 @2 a A4 init-variable2 ∞°"í∞°#íÒ`¥%PÉ C 7 $Define Method case-insensitive-equal++I+J+I6 I2 4 6 J2 4 2 9 7 R -+K**c2 *c1 +L +M" +N +O 6 L2 6 L2 6 M2 6 M2 uppercase?32ı`P P ? ∞°3í∞°2í¢ı ≥2ë aQ Q ∞°3í¢∞°2íı ≥3ë 04 †°`†°a¢°b≥$R%∂PQí∂RëÇ 'C 7 $Define Method case-insensitive-equal++S+T+S6 S2 4 6 T2 4 2 9 7 ,+U **s2 *s1 +V "+W "+X "6 U2 6 X4catch9 7 {.+X )*return ** #* $+YE &+Y )* < &+Z )* @ )+[ *+^ &97 ' )+X4apply4throw∞°02s4 4forward-iteration-protocol6 Z2 3 ±ê`0a≤QÅ gfedcb1h≤XÅ nmlkjiUQRSìo_ _ \XYZì 3 WQRío^XYío≥__í PÅ TQRíb[XYíi ߡˇˇ4 4 ∞3ë∞2ëˆ ±23"≥§ëë04 †°`†°a¢°b≥$R%∂PQí∂RëÇ 'Cxor7 Define Method xor++g+h+g6 g2 4 4 2 .9 7 . ,+i**value2 *value1 +j /+k /+l /3 2 204 .†°`†°a†°b≤#R$µPQíµRëÇ &C make-test7 Define Method make-test)+t6 t2 <function>4 4 2 29 7 2)+u)* predicate? 6 u2 4 6 u2 9 7 )+v+* 5*ignored *value04ë14 †°`†°a¢°bR2#¥PQí¥Rë04 2†°`†°a≤#Q$µPëµQëÇ &@ <character?>7 Define Constant <character?>)+{6 {2union6 {2 6 {2 singleton4 2 9∞°≤ëí`≥$PÉ D<character-set>byte-charactersbyte-characters-setter char-rangeschar-ranges-setter single-charssingle-chars-setter negated-set?negated-set?-setter7 Define Class <character-set> *+ + É4%define-class-16 É2 <4 6 É2 <collection> <∞°≤£ëÇ $7 P Define Class <character-set> .+ + Ñ+ Ö + Ü + à + ä4 %define-slot2 =2 >2 ?2 @2 A2 B2 C2 D4%define-class-22 <4 4 make-slot =6 Ñ2<byte-character-table> init-function9 7 )+ Ö6 Ö2 6 Ö2 J∞°q ?6 Ü2<vector> A6 à2<unicode-string> C6 ä2 <∞!"Ç ∞#$Ç ∞%&Ç ∞'(Ç π™ªº- °¢Æ//ªêóº/ £§Øïº/ •¶Øïº/ ß®ØïîªêªêÑ /D <case-sensitive-character-set>7 +Define Class <case-sensitive-character-set> *+ + ê4 E6 ê2 N4 6 ê2 < N∞°≤£ëÇ $7 +Define Class <case-sensitive-character-set> )+ 4 H2 N4 N∞°≤ê≤ê≤êÑ #D <case-insensitive-character-set>7 -Define Class <case-insensitive-character-set> *+ + ñ4 E6 ñ2 O4 6 ñ2 < O∞°≤£ëÇ $7 -Define Class <case-insensitive-character-set> )+ 4 H2 O4 O∞°≤ê≤ê≤êÑ #Ckey-test7 Define Method key-test++ ö+ õ+ ö6 ö2 N4 6 õ2 34 2 P9 7 P )+ ú)*set 6 ú2==†04 P†°`¢°a≥$Q%∂Pë∂QëÇ 'C P7 Define Method key-test++ †+ °+ †6 †2 O4 6 °2 34 2 P9 7 P )+ ¢)* R 6 ¢2 †04 P†°`¢°a≥$Q%∂Pë∂QëÇ 'Cclass-for-copy7 Define Method class-for-copy)+ •6 •2 <4 6 •2<class>4 2 U9 7 U )+ ¶)* R 6 ¶2<object-table>†04 U†°`¢°a≥$Q%∂Pë∂QëÇ 'C initialize7 Define Method initialize++ Æ+ ≤+ Æ6 Æ2 <4 6 ≤2 ;4 2 Y9 description 7 Í Y1+ Æ** Z * R+ ≥ )* next-method [+ ¥ \+ µ +*negated *chars*ranges \+ ∂ ^+ π ^+ π )*i ^+ ∫ b+ ∫ ^+ æ ^+ ¡" )*unicode-ranges ^+ ¬ )*range0 d+ √ )*first4 f+ ƒ )*last8 h+ ≈ j+ ≈ )* @ j+ Δ l+ ≈ l+ » j+ … j+ à d+ Õ d+ Õ \4 +4make-next-method-function6 ¥2parse-description6 µ2 D4element-setter6 ∫2 =6 ∫2 6 ∫2<byte-character>6 æ2handle-single-chars!4 -6 ¬2head6 √2tail6 ƒ2byte-character?6 Δ2add-to-byte-vector!6 ≈2 6 …2add!6 Ã2 L6 Ã2 @∞°143î`PÄ ≤2ÅcbaSd≥T4Ç S 4 d eTfUTÛ g¥W4µ∂ßVíÉ T d ⁄ˇˇˇ ∏4RÇ dQeπUÅ kjihgfYUVWì d [UVíl∫\ëmª\ënº]ë º^ë / ]o_o_^¯ Ω4_Ç æ_ëo_o Ÿˇˇˇ øT\ídXUVíf åˇˇˇ∂ØTíeøU4Ç 04 Y†°`≤ë°a≥$Q%∂Pë∂QëÇ 'C u7 !Define Method add-to-byte-vector!++ ’+ ÷+ ‘6 ’2 N4 6 ’2 p6 ÷2 ;4 2 u9 7 u*+ ◊**char * R + ÿ w6 ◊2 C4 o6 ◊2 =3∞ `±P3≤2É 04 u†°`¢°a≥ë°b¥%R&∑PQí∑RëÇ (C u7 !Define Method add-to-byte-vector!++ ›+ fi+ ‹6 ›2 O4 6 ›2 p6 fi2 ;4 2 u9 7 8 u++ fl** x * R + ‡ y+ · y6 fl2 C4 o6 fl2 =6 fl2 as-lowercase6 ‡2 as-uppercase3∞ `±P3≤≥2ëÉ 3∞ `±P3≤¥2ëÉ 04 u†°`¢°a≥ë°b¥%R&∑PQí∑RëÇ (A no-default7 Define Variable no-default)+  6 Â2pair4 2 |∞í`±"PÉ Celement7 Define Method element++ È+ Î+ È6 È2 <4 6 È2 6 Î2 94 2 ~9default7 4 ~/+ Í** x * R+ Ï )* Ä+ Ì Å+ Ó Å+ Ô Å+ Å+ Ò Å6 Í2 |6 Ï2member?6 Ô2errorElement %= not found2ı † 2`±34í 3 P†ı ≤#3í P04 ~†°`¢°a£°b¥%R&∑PQí∑RëÇ (C Ç7 Define Method member?++ ¯+ ˙+ ¯6 ¯2 p4 6 ¯2 <6 ˙2 4 2 Ç9 test7 ; Ç-+ ¯+* Ñ * R* x+ ˚$ )* ] Ö+ ¸ Ü+ ˝ Ü+ ˛ Ü4 +4 m6 ˚2 P6 ¸2in-byte-vector?∞°1543ï`2 aQ Q 2≤4ëı ≥45í Pê04 dž°`¢°a£°b¥%R&∑PQí∑RëÇ (C Ç7 Define Method member?++ + + 6 2 4 6 2 <6 2 4 2 Ç9 Ñ7 Ç)+ +* 7 * R * 6 2 .6 2in-single-chars?6 2 in-ranges?6 2 C∞±43í`P P ≤43í3≥í04 dž°`¢°a£°b¥%R&∑PQí∑RëÇ (C q7 "Define Method handle-single-chars!,+ + + + 6 2 <4 6 2 F4 2 q9 7 W q 1 + ** char-coll * R + " )*not-byte-chars ã+ )* ç+ è+ è+ è+ ç+ ç+ ã6 2 6 2 M 4 -6 2 instance?6 2 p6 2 u6 2 v6 2 B∞°" ì`2a≥QÅ gfedcbUQRSì ) WQRíh¥X•í ∂3XÇ ∑PXí`TQRíb «ˇˇˇPa∏Q3Ç 304 q†°`¢°a†°b≥$R%∂PQí∂RëÇ 'C 7 Define Method as,+ + + + 4 ;6 2 <4 6 2 F4 2 9 7 )+ **coll *type 6 2 ÉgNeed to specify whether you want a <case-sensitive-character-set> or a <case-insensitive-character-set>∞!ë04 ∞°ë¢`£¢a°¢b¥%R&∑PQí∑RëÇ (C 7 Define Method as,+ + & + '+ %4 ;6 &2 N4 6 &2 F6 '2 <4 2 9 7 ,+ (** í * ì + ) )* R î+ * ï+ * î6 (2 6 (2 N6 )2 q∞°ë`≤P2Ç P04 ∞°ë¢`£¢a§¢bµ&R'∏PQí∏RëÇ )C 7 Define Method as,+ + / + 0+ .4 ;6 /2 O4 6 /2 F6 02 <4 2 9 7 ,+ 1** í * ì + 2 )* R ñ+ 3 ó+ 3 ñ6 12 6 12 O6 22 q∞°ë`≤P2Ç P04 ∞°ë¢`£¢a§¢bµ&R'∏PQí∏RëÇ )C n7 Define Method parse-description)+ :6 :2 <sequence>4 4 2 n9 7%R n1+ ;)* + < )*s ô+ = )* _ ö+ = )* char-list ú+ B )* range-list ù+ C ü+ D )* x ü+ E °+ F °+ G °+ H )* second-char °+ I ¢+ J °+ K °+ L )* escaped-char °+ M §+ N §+ O §+ P §+ Q §+ R §+ T §+ V §+ W §+ X §+ Y §+ Z §+ \ §+ ] §+ _ °+ ` °+ c ü6 ;2 6 ;2<parse-string> 6 <2 lookahead ^6 =2consume -6 I2 v6 I2 } \6 M2= n t f r b d 0 9 w6 W2 6 W2 a z A Z 0 9 _ s 6 c2values∞°"1ì`≥Pë$ıaQ µPÅ bc≥PëÙ ≥PëdµPÅ ≥Pë&Ù µPÅ ≥PëeµPÅ ∑S∏TUííc Ó T)Ù · ≥PëeµPÅ Uf™gWV+í ∑R,íb º WV-í ∑R.íb ® WV/í ∑R/íb í WV/í ∑R/íb | WV/í ∑R/íb f WV/í ∑S∏//ííc L WV/í % øSø∏// í∏/ / í∏/ / íìíc∑R/!íb WV/"í øR/#íb ∑RUíb ∑RTíb ”˛ˇˇø$SRQs4 n†°`≤#$µPëÇ &C shallow-copy7 Define Method shallow-copy++ j+ k+ j6 j2 <4 4 2 ´9 7 h ´ 1 + l)* R + m$ )*new-set ¨+ m )*elt ≠+ n )*key$ Ø+ p ≠+ q ≠+ r ≠+ s ≠+ s ¨6 l2 6 l2 object-class6 m2 =4 -4 o6 p2 ´6 p2 ?6 p2 @6 q2 A6 q2 B6 r2 C6 r2 D∞±2ëë`2≤a≥QÅ gfedcbUQRSì ! WQRíhVQRíiXj¥ZP≤YÉ TQRíb œˇˇˇµ2∂ëa∑QPÇ µ2∏ëaπQPÇ 2∫aªQPÇ P04 ´†°`†°a≤#Q$µPëµQëÇ &C á7 Define Method in-byte-vector?++ z+ {+ z6 z2 <4 6 z2 p6 {2 4 2 á9 7 á *+ z** * R + | ¥4 ~6 |2 =∞3±2í04 ᆰ`¢°a£°b¥%R&∑PQí∑RëÇ (C ä7 Define Method in-ranges?,+ Ä+ Å+ Ç+ Ä6 Ä2 N4 6 Å2 6 Ç2 4 2 ä9 7 ä )+ É** * R 6 É4 %9 7 [ -+ É )* ' ** * R+ Ñ$ ∂+ Ö )* g ∂+ Ü ∏+ â ∂97 ' )+ É4 +4 ,∞°02s4 6 Ñ2 ?4 -6 Ö2 r6 Ö2 s3 ±ê`0≤a≥QÅ gfedcbUQRSì 3 WQRíh1¥Xë˜ 1µXëÛ PÅ TQRíb Ωˇˇˇ4 4 ∞23!≤£ëë04 䆰`¢°a£°b¥%R&∑PQí∑RëÇ (C ä7 Define Method in-ranges?,+ é+ è+ ê+ é6 é2 O4 6 è2 6 ê2 4 2 ä9 7 ä )+ ë** * R 6 ë4 %9 7 ´ 1+ ë )* ' ** * R+ í$ ∫+ ì )* g ∫+ î º+ ï º+ ñ º+ ó º+ ò º+ ñ º+ ò º+ õ ∫97 ' )+ ë4 +4 ,∞°02s4 6 í2 ?4 -6 ì2 z6 ì2 r6 î2 s6 ñ2 {3 ±ê`0≤a≥QÅ gfedcbUQRSì É WQRíh¥1ëµXë˜ @ ¥1ë∂XëÛ PÅ & ∑1ëµXë˜ ∑1ë∂XëÛ PÅ & ∑1ëµXë˜ ∑1ë∂XëÛ PÅ TQRíb mˇˇˇ4 4 ∞23!≤£ëë04 䆰`¢°a£°b¥%R&∑PQí∑RëÇ (C â7 Define Method in-single-chars?,+ †+ °+ ¢+ †6 †2 N4 6 °2 6 ¢2 4 2 â9 7 â )+ £ ** * R 6 £2 Ç6 £2 A Ñ6 £2 S∞23±"£î04 ↰`¢°a£°b¥%R&∑PQí∑RëÇ (C â7 Define Method in-single-chars?,+ ß+ ®+ ©+ ß6 ß2 O4 6 ®2 6 ©2 4 2 â9 7 â )+ ™ ** * R 6 ™2 Ç6 ™2 A Ñ6 ™2 ∞23±"£î04 ↰`¢°a£°b¥%R&∑PQí∑RëÇ (@*max-character*7 Define Constant *max-character*)+ Æ6 Æ2 6 Æ2 4 2 ø∞° ˇˇ í`≤#PÉ C -7 (Define Method forward-iteration-protocol)+ ≥6 ≥2 <4 4 2 -9 7 ± -1+ µ )* R+ ¿ )*limit ¿+ ¡ ¡+ ƒ ¡+ ≈ ¡+ ƒ ¡+ Õ ¡+ Œ ¡+ Õ ¡+ ” ¡+ ÿ ¡+ › ¡+ fi ¡+ › ¡+ „ ¡6 µ4 %9 7 G/+ µ )* found-limit )* R+ ∂ √+ ∑ )* √+ ∏ Δ+ π Δ+ ∂ Δ+ º Δ97 ƒ )+ µ4 +4 ,∞°02s4 6 ∂2 ø6 ∑2 6 ∑2 6 ∏2 Ç6 ∂2 2 ±ê`¢aQbR≥§ íı µR0í PRÅ ∂RëcSa –ˇˇˇµR0í R4 4 6 ¿2 ™6 ¿2 6 ¿2 4 ;4 9 7 !,+ Δ**state * R + Δ )* «+ » …+ » «6 Δ2 Ç6 Δ2 2`Pa∞Q3í ±QëbR` ¡ˇˇQ06 Õ2 96 Œ2 9 7 )+ œ +* ¬ * » * R2 `P P 32ı09 7 )+ ‘** » * R 209 7 )+ Ÿ** » * R 209 7 )+ fl+* » * R * 86 fl2 É Character sets are immutable∞!ë09 7 )+ ‰** » * R 20∞1!≤£ëë`¥µ¶ íP∑1ë®a¶®b¶®cS)≤QRí≤Së∑1ë®a¶®b™®c´®dT,≤QRSì≤Të∑1ë®a¶®b¶®cS-≤QRí≤Së∑1ë®a¶®b¶®cS.≤QRí≤Së∑1ë®a¶®b¶®cS/≤£QRì≤Së∑1ë®a¶®b¶®cS/≤QRí≤Sëx4 -†°`≤#$µPëÇ &D J jump-vectorjump-vector-setter7 #Define Class <byte-character-table> *+ + Ó4 E6 Ó2 J4 6 Ó2!<mutable-explicit-key-collection> J∞°≤£ëÇ $7 #Define Class <byte-character-table> ++ + Ô+ 4 G2 œ2 –4 H2 J4 4 I œ6 Ô2<simple-object-vector> K9 7 )+ Ò 6 Ò2 6 Ò2 “ ∞°" #u J∞!"Ç ≥§µ∂' °¢®)*µêóëµêµêÑ +C ~7 Define Method element)+ ˘6 ˘2 J4 6 ˘2 4 2 ~9 7 ~ *+ ˘+* * ≤ *jt + ˚ ”4 ~6 ˚2 œ6 ˚2 6 ˚2 ∞3±≤£2ír4 ~†°`¢°a≥$%∂PQíÇ 'C o7 Define Method element-setter++ ˇ+ + ˇ6 ˇ2 J4 6 2 4 2 o9 7 o)+ +* ≤* ‘ * 8 4 o6 2 œ6 2 6 2 3`∞P2±≤£1íÉ P4 4 o†°`¢°a≥$%∂ßPQì∂ßëÇ (C -7 (Define Method forward-iteration-protocol)+ 6 2 J4 4 2 -9 7 = - /+ )* ‘+ ÷+ ÷+ ÷+ ÷+ ÷+ ÷6 2 ™9 7 )+ ** »* í 1 4 4 9 7 )+ +* ¬* » * í 21˜9 7 )+ ** »* í 6 2 6 2 ∞°1r9 7 )+ +* ‘* » * í 4 ~6 2 œ∞0±2r9 7 )+ ,* ‘* » * í * 84 o6 2 œ4`∞P0±2É P9 7 )+ ** »* í 1∞ !≤££í$≤£££ì%≤££í1&≤££í1'≤£££ì(≤££íx4 -†°`≤#$µPëÇ &ˇ# compilation (2.1) of do-replacement.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> do-replacement.dylan=do-replacement@ <integer?>7 Define Constant <integer?>)+$6 $2union6 $2 <integer>6 $2 singleton4 init-variable2 ∞°≤ëí`≥$PÉ C 7 6 Define Method do-replacement-+.+/ +0+1+-6 .2 <function>4<type>6 .2<string>6 /2 6 /2 6 02 <boolean>4%define-method2 9 7 @ 0+2/*expand-backreferences *count * input-end*start*input* new-substring * positioner!+2 )*expand-replace-sequence +R +S )* result-string +T )*index +U )* num-matches +a +a 6 22 <sequence>4 9 7 • 1+3,* * * *marks+4 +5 )* return-string +6 )* +8 !+9 !+: !+; !+< !+@ !+@ )* ref-number !+A "+B "+C "+D "+E "+> !+= !+I )* newest-piece !+J $+J !+L !+N 6 32member? \ 6 62size4element \6 92as6 92 6 <2digit?6 @2digit-to-integer6 A2* 6 D2 copy-sequence end6 I2 concatenate0 ∞!1í é "` aQ≥1ëÚ } ¥1Qí%ˆ ∂ߥ1Qíí P Q a∏¥1Qíë 9 π¥1Qíëb¥4∫ RííÙ + º2-¥4∫ Ríí.¥4 ∫ Rííï ∂ߥ1QííbøPRí`Q a ~ˇˇˇ P14list6 R2 - .6 U4catch9 7 u1+U )*done 0* * * * * * * * +V# 2+W 2+W )* 2+X 5+Z 5+[ 5+\ 5+] 5+^ 5+^ 297 3 )+U4apply4throw∞°02s4 0 .4 (6 Z2 /6 [2 - .9 ±ê`0 aQ Q 10Ú H 23"4#5Öa¥Q íÙ PÄ µ6∂3'4(¥Q íï7Qëì6¥Q í41 1 ïˇˇˇ4<object>6 a2 / †°`a672"≥PëQ¥6%5ìb5c d∂QR4S68T3'≥®ëÅ πR¥6*Sìí04 0 †°`¢°a¢°b£°c§°d§°e•°f¢°g∂'W(πPQRSTUVóπWëÇ *ˇ# compilation (2.1) of parse-string.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> parse-string.dylan= parse-stringD<parse-string>string string-setterindex index-setter7 Define Class <parse-string> *+ +(4%define-class-16 (2 4list6 (2<object> ∞°≤£ëÇ $7 -Define Class <parse-string> ++ +) +*4 %define-slot2 2 2 2 4%define-class-22 4 4 make-slot 6 )2 <sequence>required-init-keyword 6 *2 <integer> init-value ∞!"Ç ∞#$Ç µ¶∑∏) °¢™+,ó∏- £§Æ/ óí∑ê∑êÑ /Cconsume7 Define Method consume)+.6 .2 4<type>4%define-method2 9 7 ,+/)*s+0 +2 +3 6 /2 6 /2size6 /2 6 22 1∞±1≤ë˜ 1∞ `≥P1Ç 14 †°`≤#$µPëÇ &C lookahead7 Define Method lookahead)+86 82 4 4 2 9 7 ++9)* +: +< 6 92 6 92 6 92 4element1∞±1≤ë˜ ≥1≤1∞r4 †°`≤#$µPëÇ &Cparse-string-done?7 Define Method parse-string-done?)+A6 A2 4 4 2 9 7 )+B )* 6 B2 6 B2 6 B2 1∞±1≤ë˜4 †°`≤#$µPëÇ &ˇ# compilation (2.1) of parse.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> parse.dylan=regular-expressions@ <integer?>7 Define Constant <integer?>)+46 42union6 42 <integer>6 42 singleton4 init-variable2 ∞°≤ëí`≥$PÉ D<parsed-regexp>7 Define Class <parsed-regexp> *+ +64%define-class-16 62 4list6 62<object> ∞°≤£ëÇ $7 Define Class <parsed-regexp> )+ 4%define-class-22 4 ∞°≤ê≤ê≤êÑ #D<mark>child child-setter group-numbergroup-number-setter7 Define Class <mark> *+ +94 6 92 4 6 92 ∞°≤£ëÇ $7 -Define Class <mark> ++ +: +;4 %define-slot2 2 2 2 4 2 4 4 make-slot 6 :2 required-init-keyword 6 ;2 group ∞!"Ç ∞#$Ç µ¶∑∏) °¢™+,ó∏- £§Æ//óí∑ê∑êÑ /D<union>left left-setterright right-setter7 Define Class <union> *+ +>4 6 >2 4 6 >2 ∞°≤£ëÇ $7 ,Define Class <union> ++ +? +@4 2 2 2 2 4 2 4 4 6 ?2 ∞!"Ç ∞#$Ç µ¶∑∏) °¢™+,ó∏- £§™./óí∑ê∑êÑ /D <alternative> 7 Define Class <alternative> *+ +C4 6 C2 4 6 C2 ∞°≤£ëÇ $7 ,Define Class <alternative> ++ +D +E4 2 2 2 2 4 2 4 4 6 D2 ∞!"Ç ∞#$Ç µ¶∑∏) °¢™+,ó∏- £§™./óí∑ê∑êÑ /D<parsed-assertion>assertsasserts-setter7 Define Class <parsed-assertion> *+ +H4 6 H2 6 H2 ∞°≤£ëÇ $7 Define Class <parsed-assertion> *+ +I4 2 2 4 2 4 6 I2<symbol> assertion ∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D<quantified-atom>atom atom-setter min-matchesmin-matches-setter max-matchesmax-matches-setter7 Define Class <quantified-atom> *+ +L4 6 L2 4 6 L2 ∞°≤£ëÇ $7 I Define Class <quantified-atom> ,+ +M +N+O4 2 !2 "2 #2 $2 %2 &4 2 4 4 !6 M2 ! #6 N2 init-value init-keywordmin %6 O2 ' (max ∞!"Ç ∞#$Ç ∞%&Ç ∑®π∫+ °¢¨-.ó∫/ £§Ø/ //ô∫/ •¶Ø///ôìπêπêÑ /D <parsed-atom>7 Define Class <parsed-atom> *+ +R4 6 R2 +4 6 R2 +∞°≤£ëÇ $7 Define Class <parsed-atom> )+ 4 2 +4 +∞°≤ê≤ê≤êÑ #D<parsed-character> charactercharacter-setter7 Define Class <parsed-character> *+ +U4 6 U2 ,4 6 U2 + ,∞°≤£ëÇ $7 Define Class <parsed-character> *+ +V4 2 -2 .4 2 ,4 4 -6 V2 <character> - ,∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D <parsed-set>char-setchar-set-setter7 Define Class <parsed-set> *+ +Y4 6 Y2 04 6 Y2 + 0∞°≤£ëÇ $7 Define Class <parsed-set> *+ +Z4 2 12 24 2 04 4 16 Z2<character-set> set 0∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D<parsed-backreference> 7 #Define Class <parsed-backreference> *+ +]4 6 ]2 54 6 ]2 + 5∞°≤£ëÇ $7 #Define Class <parsed-backreference> *+ +^4 2 2 4 2 54 4 6 ^2 5∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D <parse-info>backreference-usedbackreference-used-setterhas-alternativeshas-alternatives-setterhas-quantifiershas-quantifiers-settercurrent-group-numbercurrent-group-number-setterset-typeset-type-setter7 Define Class <parse-info> *+ +f4 6 f2 64 6 f2 6∞°≤£ëÇ $7 eDefine Class <parse-info> .+ !+g +k +l +m +n4 2 72 82 92 :2 ;2 <2 =2 >2 ?2 @4 2 64 4 7 ' 9 ' ; ' = ' ?6 n2<class> ( ? 6∞!"Ç ∞#$Ç ∞%&Ç ∞'(Ç ∞)*Ç ª¨Ωæ/ °¢/óæ/ £§/óæ/ •¶/óæ/ ß®/ óæ/ ©™Ø//óïΩêΩêÑ /Cparse7 Define Method parse)+r6 r2<string>4<type>6 r2 A4%define-method2 B9 7 ' B1 +s**character-set-type*s +t )* parse-info F+u )* parse-string I+v K+w )* parse-tree K+x M+y M+z M+{ M6 s2make6 s2 6 ?6 t2<parse-string>string6 u2 6 v2 parse-regexp6 w2values6 x2 =6 y2 76 z2 96 {2 ;∞°"1ì`∞£$2ìa∞•& '∏QPíïbπRP∫PªPºPΩu4 B†°`¢°a≥$%∂PQíÇ 'C R7 Define Method parse-regexp+++ Ä+6 2 P4 D6 2 66 Ä2 4 E2 R9 7 + R/+ Å**info * H + Ç )* alternative T+ É V+ Ñ V+ Ö V+ Ü V+ Ü T6 Å2parse-alternative6 Ç2 lookahead |6 É2 :6 Ñ2 O6 Ñ2 6 Ñ2 R6 Ñ2consume∞32í`±3ë"Ù a≥Q2Ç ¥•&P'∏π3ë2íï P04 R†°`¢°a£°b¥%R&∑PQí∑RëÇ (C X7 Define Method parse-alternative++ ã+ å+ ã6 ã2 P4 D6 ã2 66 å2 4 E2 X9 7 # X.+ ç** U * H + é )*term [+ è \+ ê \+ ë \+ ë [6 ç2parse-quantified-atom6 é2member?6 é2 Y | )6 ë2 O6 ë2 6 ë2 X∞32í`±≤3ë#í P ¥•&P'∏32íï04 X†°`¢°a£°b¥%R&∑PQí∑RëÇ (C ^7 #Define Method parse-quantified-atom++ ñ+ ó+ ñ6 ñ2 P4 D6 ñ2 66 ó2 4 E2 ^9 7! ^ 1#+ ò** U * H + ô )* ! `+ ö )*char a+ õ b+ ú b+ ù b+ û b+ † b+ ° b+ ¢ b+ £ b+ • b+ ¶ b+ ß b+ ® b+ ™ b+ ´ b+ ¨ b+ ≠ b+ Æ )* first-string b+ Ø )* second-string d+ ∞ )* has-comma f+ ∞ )*c h+ ± j+ ≤ j+ ≥ j+ ¥ j+ µ j+ ∂ j+ ∑ j+ ∞ j+ ∫ h+ ª h+ º h+ Ω h+ ø h+ ¿ h+ ¡ h+ ¬ h+ ø h+ æ h+ æ b+ Δ b+ Δ `6 ò2 parse-atom6 ô2 Y6 ö2= *6 ú2 <6 ù2 Z6 û2 O6 û2 ) ! + ) ! ? ) * ! {6 ≠2<deque> } ,6 µ2 push-last ! )6 º2string-to-integer *6 ø2empty?∞32í`±3ëaQb¢cSR#í d¥T2Ç µ3Å ∂ß( )Pï Ô SR*í d¥T2Ç µ3Å ∂ß+ ,Pï Õ SR-í d¥T2Ç µ3Å ∂ß. / /Pó ¶ SR/í ö d¥T2Ç µ3Å ∂Øëd∂Øëef±3ëgWhX/Ù 6 µ3Å X/Ù f V øUXÇ øTXÇ ±3ëiYg ∫ˇˇˇµ3Å ∂ß/P/øTë/V øUë øUë øTëó P04 ^†°`¢°a£°b¥%R&∑PQí∑RëÇ (C l7 Define Method parse-atom++ À+ Ã+ À6 À2 P4 D6 À2 66 Ã2 4 E2 l9 7'p l1'+ Õ** U * H + Œ )* c r+ œ s+ – s+ — s+ “ s+ ” )* this-group s+ ‘ )*regexp t+ ’ v+ ◊ v+ ÿ v+ ÿ s+ ⁄ s+ € s+ › s+ fi s+ ‡% s+ · s+ „ s+ ‰ s+  s+ Á s+ Ë s+ È s+ Î )* set-string s+ Î )* c x+ Ï z+ Ì z+ Ó z+ Ô z+ z+ Î z+ Û x+ Ù x+ Ù s+ ˆ s+ ˜ s+ ¯ s+ ˙ s+ ˚ s+ ¸ s+ ˛ s+ ˇ s+ s+ s+ )* c s+ {+ r6 Õ2 Y (6 –2 Z6 —2 =6 —2 >6 ”2 R )6 ’2errorUnbalanced parens in regexp6 ÿ2 O6 ÿ2 ) * | + \6 Â2parse-escaped-character [6 È2 n ]6 Ì2 o \6 Ù2 0 46 Ù2 ? description .6 ¯2dot ^6 ¸2 beginning-of-string $ end-of-string6 2 , -∞3ë`PaQ!ı < ≤3Å 2≥ b¥R2Ç 2≥bµ32íc∞3ë&ˆ ∑(Å ≤3Å π™+S,Rï # Q-ı Qı Q.ı Q/ı Q/ı € Q/ı ≤3Å ø32í ƒ Q/ı d ≤3Å πØëb∞3ëcSdT/Ù / ≤3Å øRTÇ T/Ù øR∞3ëÇ ≤3Å ∞3ëeUc ¡ˇˇˇ≤3Å πØ/π2ø/Rìì W Q/ ı ≤3Å Ø C Q/ ı ≤3Å πØ / /!ì ) Q/"ı ≤3Å πØ /#/$ì ∞3ëb≤3Å πØ%/&Rì04 l†°`¢°a£°b¥%R&∑PQí∑RëÇ (@any-char7 Define Constant any-char)+ 6 2 O6 2 <case-sensitive-character-set> ~^ 4 2 Ç∞°"#ì`¥%PÉ @ digit-chars7 Define Constant digit-chars)+ 6 2 O6 2 É ~\d4 2 Ñ∞°"#ì`¥%PÉ @not-digit-chars7 Define Constant not-digit-chars)+ 6 2 O6 2 É ~^\d4 2 Ö∞°"#ì`¥%PÉ @ word-chars7 Define Constant word-chars)+ 6 2 O6 2 É ~\w4 2 Ü∞°"#ì`¥%PÉ @not-word-chars7 Define Constant not-word-chars)+ 6 2 O6 2 É ~^\w4 2 á∞°"#ì`¥%PÉ @whitespace-chars7 Define Constant whitespace-chars)+ 6 2 O6 2 É ~\s4 2 à∞°"#ì`¥%PÉ @not-whitespace-chars7 $Define Constant not-whitespace-chars)+ 6 2 O6 2 É ~^\s4 2 â∞°"#ì`¥%PÉ @ 7 Define Constant dot)+ 6 2 O6 2 0 46 2 Ç4 2 ∞°"£ì`¥%PÉ @dot-star7 Define Constant dot-star*+ !+ " 6 !2 O6 !2 ) * !6 "2 4 2 ä∞°" #$•ó`∂'PÉ C }7 %Define Method parse-escaped-character,+ (+ )+ *+ (6 (2 P4 D6 )2 66 *2 4 E2 }9 79∑ }1 + +** U * H + , )* next-char ã+ - å+ . Ö å+ / å+ 0 å+ 2 å+ 3 å+ 4 å+ 5 å+ 7 å+ 8 å+ ; å+ < å+ = å+ > å+ ? å+ @ å+ E å+ E ã6 +2 Y6 ,2 Z 0 1 2 3 4 5 6 7 8 96 /2 86 02 O6 02 5 6 02digit-to-integer n6 22 , - t - f - r - b6 72 word-boundary B not-word-boundary d6 ;2 0 46 ;2 Ñ D 46 <2 Ö w 46 =2 Ü W 46 >2 á s 46 ?2 à S 46 @2 â -∞3ë`±3Å PaQ"ı s Q#ı e Q$ı W Q%ı I Q&ı ; Q'ı - Q(ı Q)ı Q*ı Q+ı bºR2Ç ΩÆ/øPëì Q/ı ΩØ//ì ˘ Q/ı ΩØ//ì „ Q/ı ΩØ//ì Õ Q/ı ΩØ/ / ì ∑ Q/ ı ΩØ / /!ì ° Q/"ı ΩØ /#/$ì ã Q/%ı ΩØ&/'Ø(ì u Q/)ı ΩØ&/*Ø+ì _ Q/,ı ΩØ&/-Ø.ì I Q//ı ΩØ&/0Ø1ì 3 Q/2ı ΩØ&/3Ø4ì Q/5ı ΩØ&/6Ø7ì ΩØ/8Pì04 }†°`¢°a£°b¥%R&∑PQí∑RëÇ (C is-anchored?7 Define Method is-anchored?++ I+ J+ I6 I2 4 D6 J2 <boolean>4 E2 ë9 7 D ë-+ K)* w + L ì+ M ì+ N ì+ O ì6 K2 instance?6 L2 6 L2 ë6 L2 6 M2 6 M2 6 N2 N2 Ä2`†aQP°í ≤2≥ë ) QP§í ≤2µë QP¶í 2∑(ı 04 놰`¢°a≥$Q%∂Pë∂QëÇ 'ˇ# compilation (2.1) of match.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> match.dylan=regular-expressions@<non-local-exit>7 Define Constant <non-local-exit>)+" 6 "2 <function>4 init-variable2 †`±"PÉ C match-root?7 -Define Method match-root?-+J+K+L+M +J6 J2<parsed-regexp>4<type>6 J2<string>6 K2 6 L2 <integer>6 M2 <boolean>6 M2 <sequence>4%define-method2 9 7 & ,+N ,* num-groups *equal?*string*re+P )*marks +d )*answer +d 6 N2make6 N2<vector>size6 N2*fill6 P4catch9 7 Y1+P,* * * * +P )*succeed +Q +R +S +Q )*up-proc +Z +Z )*index +[ !+b 97 )+P4apply4throw∞°02s4list6 Q2 4 6 R2 6 S2<list>9 7 )+T,* *up-list * backtrack * "0q6 Z2 6 [4 7 ,+[ )*fail .* * * " * * * +\ *+] *+^ *97 + )+[4 #4 $∞°02s4 %6 \2 descend-re6 ]2 %6 ^2errorOA regexp should either match or not match. Why did it reach this piece of code?7 ±ê`≤01234P≥5ëá ¥%q4<object>`5 ±êP¢£a§£b•£cdP&±QRSìT e∑0ëfUgVUÚ ∏T3W201)±™ëÅ U e ◊ˇˇˇ4 %4 /4values∞°"≥3 í$ï`µP465&∑®ëëaQPa`πP0Q1r4 % †°`¢°a£°b§°c•°d¶°e∑(UT)∫PQRSî∫TUíÇ +Canchored-match-root?7 -"Define Method anchored-match-root?-+k+l+m+n +k6 k2 4 6 k2 6 l2 6 m2 6 n2 6 n2 4 2 19 7 & 1,+o ,* * * * +q )* 2+ Ä )* 3+ Ä 26 o2 6 o2 6 o2 6 q4 7 80+q,* * * * +q )* 5+r 6+s 6+t 6+r )* 6+x 7+~ 797 )+q4 #4 $∞°02s4 %6 r2 4 6 s2 6 t2 &9 7 )+u,* * ( * ) * "0q6 x4 7 ,+x )* + -* * * * * +y 9+z 9+{ 997 + )+x4 #4 $∞°02s4 %6 y2 -6 z2 %6 {2 .OA regexp should either match or not match. Why did it reach this piece of code?6 ±ê`≤012 3P≥4ëá ¥%q4 /`5 ±êP¢£a§£b•£cdP&±QRSìT∑T3210(±©ëÅ 4 %4 /4 0∞°"≥3 í$ï`µP456&∑®ëëaQPa`πP0Q1r4 % 1†°`¢°a£°b§°c•°d¶°e∑(UT)∫PQRSî∫TUíÇ +C -7 /Define Method descend-re/+ Ü+ á+ à+ â+ ä+ ã+ Ü6 Ü2<mark>4 6 Ü2 6 á2 6 à2 6 â2<mutable-sequence>6 ä2 6 ã2 &4 2 -9 7 v -1+ é/* (*backtrack-past-me * * start-index* * * + è =+ ê =+ é )* =+ ñ @+ ñ )*old-start-mark @+ ó A+ ö )* old-end-mark A+ ú C+ £ C+ § C+ • C6 é2 4 6 è2 6 ê2 &9 7 ++ ë-* * *current-up-list *current-backtrack* current-index+ í E+ ì E4element-setter6 ë2 6 ë2 group-number6 í2head6 ì2tail5`∞P0 ± 1≤íÉ ≥3ë54¥3ës4 %4element6 ñ2 6 ñ2 J4 I6 ú4 7 ++ ú )*backtrack-to-me /* (* * * ? * * * + ù N+ û N97 O )+ ú4 #4 $∞°02s4 %6 ù2 -6 ù2child6 û2pair8 ±ê`≤0≥1234P¥56íw4 /†°`¢°a£°bc73$µPQRìS∂3∑ 7∏ííd∂3 ∑ 7∏ííe4fπV3∑ 7∏íÉ ∫1S34567+µ¨ëÅ TfπV3∑ 7∏íÉ UfπV3 ∑ 7∏íÉ 2p4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ ´+ ¨+ ≠+ Æ+ Ø+ ∞+ ´6 ´2<union>4 6 ´2 6 ¨2 6 ≠2 6 Æ2 <6 Ø2 6 ∞2 &4 2 -9 7 - ++ ≤/* (* > * * ?* * * + ∫ T+ ª T6 ≤4 7 ++ ≤ )* O .* (* * ? * * * + ≥ U+ ¥ U97 O )+ ≤4 #4 $∞°02s4 %6 ≥2 -6 ≥2left7 ±ê`≤0≥1234P5w4 %4 /6 ∫2 -6 ∫2right∞134567!≤£ëÅ ¥7µ654321w4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 1Define Method descend-re/+ ƒ + ≈+ Δ+ «+ »+ …+ ƒ6 ƒ2 singleton4 6 ƒ2 6 ≈2 6 Δ2 6 «2 <6 »2 6 …2 &4 2 -9 7 - )+ /* (* > * * ?* * * 2p4 % -∞ë°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ –+ —+ “+ ”+ ‘+ ’+ –6 –2 <alternative>4 6 –2 6 —2 6 “2 6 ”2 <6 ‘2 6 ’2 &4 2 -9 7 ( -.+ Ÿ/* (* > * * ?* * * + ⁄ \+ € \+ Ÿ )* \+ ‡ ]+ · ]6 Ÿ2 4 6 ⁄2 6 €2 &9 7 *+ ‹/* * * * * F* G* H + › ^6 ‹2 -6 ‹2 X∞0±127365w4 %6 ‡2 -6 ‡2 W6 ·2 R†°`¢°a£°b3567$µPQRìc∂7∑65432∏S1íw4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ Á+ Ë+ È+ Í+ Î+ Ï+ Á6 Á2<parsed-assertion>4 6 Á2 6 Ë2 6 È2 6 Í2 <6 Î2 6 Ï2 &4 2 -9 7 - ++ Ì /* (* > * * ?* * * + Ó `+ `6 Ì2assertion-true?6 Ì2asserts6 Ó2 K6 Ó2 L∞7±645î ≤1ë42≥1ës2p4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ ˜+ ¯+ ˘+ ˙+ ˚+ ¸+ ˜6 ˜2<quantified-atom>4 6 ˜2 6 ¯2 6 ˘2 6 ˙2 <6 ˚2 6 ¸2 &4 2 -9 7 4 -.+ ˛/* (* > * * ?* * * + ˇ d+ d+ ˛ )*descend-and-quantify d+ * e+ + e6 ˛2 4 6 ˇ2 6 2 9 7 c f1+ 1* * * * f* (* >* " * !*max%*min)+ g+ g+ )*keep-quantifying g+ j+ j+ j+ j+ j+ j+ & j6 2 4 6 2 6 2 &9 7 J k -+ 0* * h * f * i* "* (* ) * new-index!+ l+ l+ l+ l80Ù ' 1 Û 7p21 Ò3 3 Ò 4876v21 Ò3 3 Ò 4876v4 %6 2 K6 2 L6 2 -6 2 R6 4 7 ++ )* O /* (* k* * " * * * + ! n+ " n97 O )+ 4 #4 $∞°02s4 %6 !2 -6 "2 R8 ±ê`≤01234P≥56íw4 /†°`¢°a£°bc890:7$µPQRìS9 Ù ∂5ë76∑5ës: ¯ ∏812736πS5íw∫5S37218+µ¨ëÅ ∂5ë76∑5ës4 %4 /6 *2 min-matches6 *2 max-matches6 *2atom†°`¢°a†°b£°cd356T$µP¶QRS¶ñTT7∑7∏7π421v4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ 1+ 2+ 3+ 4+ 5+ 6+ 16 12<parsed-character>4 6 12 6 22 6 32 6 42 <6 52 6 62 &4 2 -9 7 ! - ++ 7/* (* > * * ?* * * + 8 t+ : t6 72 character6 72 Mdefault6 82 K6 82 L57∞±64"îí ≥1ë4 2¥1ës2p4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ A+ B+ C+ D+ E+ F+ A6 A2 <parsed-set>4 6 A2 6 B2 6 C2 6 D2 <6 E2 6 F2 &4 2 -9 7 + - ,+ G /* (* > * * ?* * * + H x+ I x+ K x6 G2 6 H2member?4 M6 H2char-set6 I2 K6 I2 L4∞6ëÚ ±≤64í7≥í ¥1ë4 2µ1ës2p2p4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C -7 /Define Method descend-re/+ R+ S+ T+ U+ V+ W+ R6 R2<parsed-backreference>4 6 R2 6 S2 6 T2 6 U2 <6 V2 6 W2 &4 2 -9 7 : -1+ R/* (* > * * ?* * * + X |+ X )* backref-start |+ Y }+ Z )* backref-end }+ \ )*substring-2-end-pos + ] Å+ ^ Å+ _ Å+ a Å4 M6 X2 6 X2 J6 \2substrings-equal?6 _2 K6 _2 L∞3± 7≤íí`∞3 ± 7≤íía4QPÒb≥56PQ64Ró ¥1ëR2µ1ës2p4 % -†°`¢°a£°b§°c•°d¶°eß°f∏)*ªPQRSTUVóÇ ,C É7 6 Define Method substrings-equal?/+ l+ m+ n+ o+ p+ q+ l6 l2 4 6 m2 6 n2 6 q2 4 2 É9 7 $ É ,+ r /*end2 *start2 *string2*end1*start1*string1 * !+ s Ñ+ t Ñ+ u Ñ6 u4 7 I/+ u )*return .* á* ä* * Ü * à* â+ v ã+ v )*index1 ã+ v )*index2 é+ w ê+ x ê+ { ã97 å )+ u4 #4 $∞°02s4 %4 M7 ±ê`0a1b2cQdSeRQÚ ( 3≤4Tí≤5Uíí PÅ Q aS c «ˇˇˇ4 %4 /56Ò23Òˆ ∞478356!≤£ëë04 % Ɇ°`¢°a£°b£°c¢°d£°e£°f§°gµ&W'∏PQRSTUVó∏WëÇ )C a7 ' Define Method assertion-true?,+ Å+ Ç+ É+ Å6 Å2<symbol>4 6 Å2 6 Ç2 6 Ç2 6 É2 4 2 a9 7 º a1+ Ñ,* * " * * assertion+ Ö ì+ Ü ì+ á ì+ à ì+ â# ì+ ä ì+ ã ì+ ç ì+ é ì+ è ì+ ê ì+ ì ì final-statebeginning-of-string end-of-string6 á2 word-boundary6 ä2 y4 M6 ä2whitespace-charsnot-word-boundary6 ì2 .Unknown assertion %=6 ì2 b5`P ı © P!ı 3 Ù ò P"ı 3≥4ë˜ Ü P$ı : 3 ÙaQ Q $ 3≥4ë˜bR R µ∂43íßíµ∂43 Òíßíˆ D P(ı 6 3 ˆ ' 3≥4ëÚ µ∂43íßíµ∂43 ÒíßíÙ π*5ªí04 % a†°`¢°a£°b§°c•°d∂'T(πPQRSîπTëÇ *ˇ# compilation (2.1) of finite-automaton.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> finite-automaton.dylan=regular-expressions@ <NFA-state?>7 Define Constant <NFA-state?>)+:6 :2union6 :2 <NFA-state>6 :2 singleton4 init-variable2 ∞°≤ëí`≥$PÉ D next-statenext-state-setter7 Define Class <NFA-state> *+ +<4%define-class-16 <2 4list6 <2<object> ∞°≤£ëÇ $7 Define Class <NFA-state> ++ +=+> 4 %define-slot2 2 4%define-class-22 4 4 make-slot 6 =2 init-value init-keyword ∞!"Ç ≥§µ∂' °¢®)*+ôëµêµêÑ ,D <e-state>other-next-stateother-next-state-setter7 Define Class <e-state> *+ +C4 6 C2 4 6 C2 ∞°≤£ëÇ $7 Define Class <e-state> ++ +D+E 4 2 2 4 2 4 4 6 D2 ∞!"Ç ≥§µ∂' °¢®)*+ôëµêµêÑ ,D<atom>7 Define Class <atom> *+ +I4 6 I2 4 6 I2 ∞°≤£ëÇ $7 Define Class <atom> )+ 4 2 4 ∞°≤ê≤ê≤êÑ #D<character-atom> atom-charatom-char-setter7 Define Class <character-atom> *+ +M4 6 M2 4 6 M2 ∞°≤£ëÇ $7 Define Class <character-atom> *+ +N4 2 2 4 2 4 4 6 N2 <character>required-init-keyword character ∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D <set-atom>atom-setatom-set-setter7 Define Class <set-atom> *+ +R4 6 R2 6 R2 ∞°≤£ëÇ $7 Define Class <set-atom> *+ +S4 2 2 4 2 4 6 S2<character-set> set ∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +D <assertion>assertsasserts-setter7 Define Class <assertion> *+ +W4 6 W2 4 6 W2 ∞°≤£ëÇ $7 Define Class <assertion> *+ +X4 2 !2 "4 2 4 4 !6 X2<symbol> assertion ∞!"Ç ≥§µ∂' °¢®)*óëµêµêÑ +C build-nfa7 Define Method build-nfa++j+k +j6 j2<union>4<type>6 k2 4%define-method2 %9 7 6 %1 +l)*r +m **n1-back*n1-front )+n **n2-back *n2-front ++o .+p )*first .+q )*last 1+r 3+s 3+s )6 l2 %6 l2left6 m2right6 n2make6 n2 6 q2 4values∞3±Åa`∞3≤Åcb≥§%P&Rïd≥§ëeUf∑VQÇ Uf∑VSÇ TUa`∏P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa++x+y +x6 x2 <alternative>4 '6 y2 4 (2 %9 7 # %-+z)* * +{ ** ,* - :+| ** / * 0 ;+} <+} :6 z2 %6 z2 56 {2 66 |2 4 8∞3±Åa`∞3≤ÅcbRd≥TQÇ PSa`¥P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa++ Å+ Ç + Å6 Å2<parsed-assertion>4 '6 Ç2 4 (2 %9 7 %++ É)* * + Ñ )*node >+ Ñ >6 É2 76 É2 $6 É2 !4 8∞°"3≥ì`PPa`¥P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa++ à+ â + à6 à2<quantified-atom>4 '6 â2 4 (2 %9 7 %)+ ä)* * 6 ä2build-quantified-nfa6 ä2atom6 ä2 min-matches6 ä2 max-matches4 8∞3±3≤3≥Éa`¥P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa)+ é6 é2<mark>4 '4 (2 %9 7 % )+ è)* *6 è2 %6 è2child∞1±q4 %†°`≤#$µPëÇ &C %7 Define Method build-nfa++ ñ+ ó + ñ6 ñ2<parsed-backreference>4 '6 ó2 4 (2 %9 7 %)+ ò)* * 6 ò2error;Damn it, Jim, I'm a finite automaton, not a Turing machine!4 8∞!Åa`≤P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa++ ú+ ù + ú6 ú2<parsed-character>4 '6 ù2 4 (2 %9 7 %++ û)* * + ü )* @ N+ ü N6 û2 76 û2 6 û2 4 8∞°"3≥ì`PPa`¥P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C %7 Define Method build-nfa++ £+ § + £6 £2 <parsed-set>4 '6 §2 4 (2 %9 7 %++ •)* * + ¶ )* @ Q+ ¶ Q6 •2 76 •2 6 •2char-set4 8∞°"3≥ì`PPa`¥P0Q1r4 %†°`¢°a¢°b≥$RQ%∂Pë∂QRíÇ 'C C7 ("Define Method build-quantified-nfa,+ ¨+ ≠+ Æ + ¨6 ¨2<parsed-regexp>4 '6 ¨2 <integer>6 ≠2 <integer?>6 Æ2 4 (2 C9 7 Å C1$+ Ø+*max *min* *+ ∞ W+ ± **n-back*n-front W+ ≤ )*e-back Z+ ≥ ]+ ¥ )*e-front ]+ µ _+ ∑& W+ ∏ W+ π ** [* \ W+ ∫ )* first-last a+ ª b+ Ω& W+ æ W+ ø ** [* \ W+ ¿ )* 4 d+ ¡ e+ √ W+ ƒ W+ ≈ )*e W+ « W+ » W+ … ** last-state* first-state W+ … )*i h+ k+ À ** another-end* another-begin k+ à m+ Œ h+ – W+ Ÿ W+ ⁄ )* ^ W+ € **back1*front1 p+ ‹ **back2*front2 q+ › t+ fi t+ fl t+ ‡ )* ` t+ ÿ W+ — W+ “ ** 4* 2 W+ ” ** n * o x+ ‘ y+ ’ )* g y+ ÷ z+ ÷ W6 ∞2 %6 ±2 76 ±2 6 ¥2 6 ⁄2 C 4 84 Ù 3 Ù ∞5Åa`±¢ëb±¢#R$PïcRdµTQÇ SR ? 4 Ù 3 ∞5Åa`±¢&PìbRcµSQÇ RR 4 Ù 3 ∞5Åa`±¢'PìbRcµSQÇ PR … 4 Ù 3 Ù ±¢ë`PP ¶ 43Ù : ∞5Åa` b4cRdSRÚ ∞5ÅfeUgµWQÇ VaR b ÿˇˇˇPQ d 3 4 ±¢ë`∏533Éba∏543 ÒÉdcPeµURÇ PeµUTÇ ±¢)Q*SïeUP * ∏54 Ò4 ÒÉa`∞5ÅcbRdµTQÇ ±¢+RìdTeµUSÇ PTa`ºP0Q1r4 C†°`¢°a£°b§°c§°dµ&TS'∏PQRì∏STíÇ )D <DFA-state> final-state?final-state?-setter7 Define Class <DFA-state> *+ + Î4 6 Î2 {4 6 Î2 {∞°≤£ëÇ $7 Define Class <DFA-state> *+ + Ï4 2 |2 }4 2 {4 4 |6 Ï2 <boolean> final-state {∞!"Ç ≥§µ∂' °¢®)*+ôëµêµêÑ ,D<DFA-character> 7 Define Class <DFA-character> *+ + 4 6 2 Ä4 6 2 { Ä∞°≤£ëÇ $7 Define Class <DFA-character> ++ + Ò+ Ú4 2 2 4 2 Ä4 4 6 Ò2<byte-character-table> init-function9 7 )+ Ú6 Ú2 76 Ú2 Å∞°q Ä∞!"Ç ≥§µ∂' °¢®)*µêóëµêµêÑ +D<DFA-assertion> ! " true-statetrue-state-setter false-statefalse-state-setter7 Define Class <DFA-assertion> *+ + ˆ4 6 ˆ2 É4 6 ˆ2 { É∞°≤£ëÇ $7 5 Define Class <DFA-assertion> ,+ + ˜+ ¯ + ˘4 2 !2 "2 Ñ2 Ö2 Ü2 á4 2 É4 4 !6 ˜2 # Ñ6 ¯2 { Ü É∞!"Ç ∞#$Ç ∞%&Ç ∑®π∫+ °¢¨ï∫- £§Æï∫/ •¶ÆïìπêπêÑ /D<dfa-state-table>7 Define Class <dfa-state-table> *+ + 4 6 2 à4 6 2<object-table> à∞°≤£ëÇ $7 Define Class <dfa-state-table> )+ 4 2 à4 à∞°≤ê≤ê≤êÑ #Cmy-test-function7 Define Method my-test-function)+ 6 2<list>4 '4 (2 ä9 7 ä )+ **set2*set1 6 2size6 2 test6 2==∞±21"£îë∞2ëÙ4 䆰`†°a≤#$µPQíÇ &Cmy-hash-function7 Define Method my-hash-function)+ 6 2 ã4 '4 (2 í9 7 K í1 + )* + )*id ì+ " )*state î+ )*elt$ ñ+ ** elt-state,*elt-id( ò+ ö+ ** new-state4*new-id0 ö+ ù+ ñ6 2$permanent-hash-state4forward-iteration-protocol6 2 object-hash6 2merge-hash-codesordered6 2 8 `†a1b±RÅ hgfedcVRSTì & XRSíi≤YÅkj≥PQZ[$Üml\`]aURSíc ˇˇˇµPQr4 톰`≤#$µPëÇ &Ctable-protocol7 Define Method table-protocol)+ 6 2 à4 '4 (2 •9 7 • )+ )*table6 2 86 2 ä6 2 í∞°¢r4 •†°`≤#$µPëÇ &C e-closure7 Define Method e-closure++ !+ "+ !6 !2 <sequence>4 '4 (2 ®9 7 Q ®1+ #)* nfa-states + # )*stack ™+ % )*reachable-states ¨+ & Æ+ ' )* ó Æ+ ( ∞+ ) ∞+ * ∞+ , ∞+ - ∞+ 0 Æ+ 0 ™6 #2as6 #2<deque>6 %2empty?6 &2pop6 '2 instance?6 '2 6 (2push6 (2 6 )2 6 -2add-new! ê6 -2 ë∞°2í`a≤Pë 9 ≥Pëb¥R•í ∂PR∑Ç ∂PR∏Ç RÙ πQR*´îa ∫ˇˇˇQ04 ®†°`†°a≤#Q$µPëµQëÇ &Chas-assertions?7 Define Method has-assertions?)+ 96 92 ©4 '4 (2 ∏9 7 ∏++ :)* ´+ : )*test-elt π+ = ∫6 :2 4 '9 7 ª )+ ;** ô*ignored 6 ;2 µ6 ;2 ∞1°r4 4 6 =2member? ꆰ`"≥§Píaµ1&Qt4 ∏†°`≤#$µPëÇ &Cget-dfa-state-equiv7 '!Define Method get-dfa-state-equiv.+ E+ F+ G+ H+ I+ E6 E2 ©4 '6 F2 à6 G2 6 H2 ≤6 I2 {4 (2 ø9 7 U ø1+ J,*superstates-to-process * nfa-end-state * ß* ´+ K )*result ¿+ L √+ M √+ O √+ P √+ Q )* new-dfa-state √+ R ≈+ S ≈+ T √+ V √+ W √+ X )* Δ √+ Y «+ Z «+ Z ¿6 J2elementdefault6 M2 ∏6 O2 76 O2 É 6 P2 æ ê6 P2 ë4element-setter6 R2 ∂6 V2 Ä ê∞45!î`P P ? ≤5ë ≥§%∂35'®îìaQbπR45É ∫25Ç Q ≥´,∂35-®îìaQbπR45É ∫25Ç Q04 ø†°`¢°a£°b§°c•°d∂'T(πPQRSîπTëÇ *Cremove-an-assertion7 #!Define Method remove-an-assertion++ c+ d+ c6 c2 ©4 '6 d2 6 d2 6 d2 4 (2 À9 7 b À 1 + e)*T + e )*found Ã+ g" )*new-list Œ+ h )* ô$ –+ k “+ j “+ h “+ n –+ n Ã4 °6 k2add!6 h2 µ6 h2 4 8`a3b∞RÅ hgfedcVRSTì 6 XRSíiP ±QYía ≤Y£í Y` ±QYíaURSíc ∫ˇˇˇPQa`¥P0Q1r4 À†°`≤≥ë§í°a†°bµ&RQ'∏Pë∏QRíÇ )C nfa-to-dfa7 "Define Method nfa-to-dfa,+ v+ w+ x+ v6 v2 4 '6 w2 <function>6 x2 {4 (2 ‘9 7F ‘1+ y+*equal? *nfa-end * nfa-begin+ z )* ÷+ } ⁄+ ~ )* ¡ ⁄+ )* dfa-table €+ Ä ‹+ Å )* dfa-version ‹+ É )*init-dfa-state fi+ Ñ ‡+ Ö )* Õ ‡+ á )*dfa-T ‚+ ä& „+ ä )* dummy-val8 „+ ä )*c< Â+ å3 )*next-superstate@ Á+ ç )* nfa-state` È+ é Î+ ë È+ î „+ ï „+ ñ **T-false * $ „+ ó Ì+ ò Ì+ ô Ì+ õ )*T-true$ Ì+ ú Ô+ ù Ô+ ù „+ ¢ ‡+ ¢ ÷6 y2 76 y2 $ 6 z2 6 }2 ≤6 ~2 à6 2rcurry6 2 ø6 Å2 ®6 Å2 6 É2 ≥6 Ñ2 ¥6 á2 µ6 á2 Ä6 ä2 4 °6 ç2 atom-accepts?6 é2 ”4 6 ï2 À6 ó2add6 õ2 á6 ú2 Ö6 ù2 !6 ù2 "∞°"#ì`Pa¥Q3Ç ∞•ëa∞¶ëb∑®RPQîcSπ∫4ëëëdªQë ºQëeSUëfΩVÆí µ VøgøWÅ mlkjih[WXYì ê ]WXín\WXíooUoø_Å oooooo____ì 7 ___íoø__2ì ø__øío ___ío µˇˇˇSπ_ëëoø_Vø_É ZWXíh `ˇˇˇ D øUÅhgWøˆ øXWøí XiSXëjøZVÇ SπYëëjøZVÇ WøjøZVÇ „˛ˇˇT04 ‘†°`†°a¢°b£°c¥%S&∑PQRì∑SëÇ (C Ú7 "Define Method atom-accepts?++ ©+ ™ + ©6 ©2 4 '6 ©2 6 ™2 ’6 ™2 ~4 (2 Ú9 7 Ú )+ ´ +* ◊ * Ë * D6 ´2 234∞í04 Ú†°`¢°a£°b§°cµ&S'∏PQRì∏SëÇ )C Ú7 "Define Method atom-accepts?++ Ø+ ∞ + Ø6 Ø2 '6 Ø2 6 ∞2 ’6 ∞2 ~4 (2 Ú9 7 Ú )+ ± +* ◊ * Ë * D6 ±2 æ6 ±2 ∞34±í04 Ú†°`¢°a£°b§°cµ&S'∏PQRì∏SëÇ )Csim-dfa7 Define Method sim-dfa++ æ+ ø+ æ 6 æ2 {4 '6 æ2<string>6 ø2 U4 (2 ˆ9 7 ˆ*+ ¿+*start*input * dfa-start + ¬ )* dfa-state ¯6 ¬4catch9 7 —1 + ¬ )*return +* ˝ * ˙* ˘+ √ ˇ+ √ )*index ˇ+ ƒ+ ≈ )*char+ Δ + » + …+ + À+ Õ + —+ ” ˇ+ ‘ ˇ+ ÷ ˇ+ ◊ ˇ+ ÿ ˇ+ Ÿ ˇ+ ‹ ˇ97 )+ ¬4apply4throw∞°02s4 6 √2 è4 »6 ≈2 |6 Δ2 µ6 Δ2 É6 »2assertion-true?6 »2 !6 …2 Ñ6 À2 Ü6 —2 4 ±ê`0a≤1ëbQcRQÛ l ≥1Síd2¥ PÅ µ2¶í 8 ∑2∏1Sì 2π 2∫22¥ PÅ √ˇˇˇ ≥2ªTí2Q a Öˇˇˇµ2¶í : 2¥ PÅ ∑2∏1≤1ëì 2π 2∫2 ¡ˇˇˇ 2¥4 4 3`∞P21!≤£ëq4 ˆ†°`¢°a£°b¥%&∑PQRìÇ (ˇ# compilation (2.1) of interface.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> interface.dylan=regular-expressionsBregexp-position7 Define Generic regexp-position*+. +,6 .2 <integer?>4<type>4%define-generic2 4list6 ,2<string>startendcase-sensitive †°`†°a≤#¥••í¥&'(ì¥PëQá )C 7 " Define Method regexp-position++1+3 +06 12 4 6 32 4%define-method2 9 7 ç 1 +4-* *big-end* big-start*regexp*big +5 +6 )* substring +7 )* comparison +8 +9 +: +< )*char-set-class +> ** last-group* parsed-regexp +? +@ +A +B +E **marks*matched +F +G +H +H 6 42 subsequence 6 52size6 62=6 62case-insensitive-equal6 82 <case-sensitive-character-set>6 :2 <case-insensitive-character-set>6 <2parse6 >2 is-anchored?6 ?2anchored-match-root?6 B2 match-root?6 F2apply6 F2values6 F2 adjust-marks!4 '4 (4do9 7 )+ 204 4<object>∞7!5"4 4 ≥7ëï`3 § •a3 ¶ ßb∏6RÇdcπSë ∫SPQT Ñ ªSPQT ÑfeU º≠æV5íÇ a`øØP0ø1/øØëQÇ Qs4 †°`†°a¢°b¢°c≥$SR%∂PQí∂RëSÇ 'Bmake-regexp-positioner7 %Define Generic make-regexp-positioner*+V+T6 V2 <function>4 4 2 ,4 6 T2 byte-characters-only need-marksmaximum-compile ,†°`≤#¥•ë¥&'()î¥Pëá *C ,7 $Define Method make-regexp-positioner++X+]+X6 X2 4 6 ]2 -4 2 ,9 . / 0 7 fl ,1+^-* * 0 * /* .* +_ )* 1+` 2+a 2+b 2+e )* 2+f -* quantifiers* alternatives* has-backrefs* * 3+g 4+h 4+i 4+kH )*match-root-function 4+l 8+n 8+l 8+z 8+{ 8+~ **nfa-end$* nfa-begin 8+ )*dot( :+ Ä )*star, =+ Å ?+ Ç )*dfa0 ?+ Ñ A+ Ç A+ Ç 16 ^2 6 ^2 6 `2 !6 b2 "6 e2 #6 f2 $6 g2 %6 i2 &6 l2 4 6 n2 9 7 N1 +p/* * * * 9* * !* %+q C+r )* C+s D+t ** * D+u E+v E+w E+w C6 p2 6 q2 6 u2 '6 u2 (6 u2 )4 '4 (4 *9 7 )+ 204 4 +∞9!8"7 7 ≥9ëï`01P23 ÑbaQ ¥•∂R8íÇ a`∑®P4π5*ª¨ëQÇ Qs4 6 {2 build-nfa6 ~2make6 ~2 <set-atom>set6 ~2any-char6 2 <e-state> next-stateother-next-state6 Ä2next-state-setter6 Å2 nfa-to-dfa6 Ñ2 <boolean>9 7 ,+ Ü,* B* * * + á Q+ à )* Q+ à Q6 Ü2 6 á2 6 à2sim-dfa∞5!4"3 3 ≥5ëï`¥0Pí12 † °`2 ¢ £a¥6QÇ fedcbµRë ¶ ßg3 hX X ) TiY Y 5 jZ Z 4 ®©h™©i™©jZYSPRW+ºXëºYëZ > ΩRÅihæØ/ØìjæØ/Z/Xïk[lø\ZÇ ø[YPìl®©mØ©n^\/º]ëº^ë04 ,†°`¢°a≥$Q%∂Pë∂QëÇ 'C )7 Define Method adjust-marks!++ ì+ î+ ì6 ì2 <sequence>4 6 ì2 <integer>4 2 )9 7 )*+ ï **offset * + ò V6 ï2map6 ï2 4 9 7 )+ ñ** W*a-mark 2Ù 204 ∞°¢`2#¥Pë3í04 )†°`¢°a†°b≥$R%∂PQí∂RëÇ 'Bregexp-replace7 Define Generic regexp-replace*+ ü+ ù6 ü2 4 4 2 [4 count [†°`≤#¥†††ì¥%&'(î¥Pëá )C [7 " Define Method regexp-replace,+ °+ ¢+ ¶+ °6 °2 4 4 2 [9 \ 7 [,+ ®/* input-end * * * \* new-substring* *input!+ © )* positioner ]+ ™ a+ ™ ]6 ®2 , 6 ©2do-replacement∞7!4ì`≤P68325ó04 [†°`†°a†°b†°c≤#S$µPQRìµSëÇ &Bmake-regexp-replacer7 #Define Generic make-regexp-replacer*+ ±+ Ø6 ±2 -4 4 2 d4 6 Ø2 replace-with d†°`≤#¥•ë¥&'í¥Pëá (C d7 "Define Method make-regexp-replacer++ ≥+ ∂+ ≥6 ≥2 4 6 ∂2 -4 2 d9 e 7 @ d1+ ∏+* * e * + π )* b f+ ∫ g+ º g+ ∫ g+ ¿ g+ ¡ g+ ƒ g+ ¡ g+ ¡ f6 ∏2 , 6 ∫2 4 9 \ 7 *+ Ω.* e* b* ^* * \* ` + æ h6 Ω2 c∞017546ó24 9 \ 7 *+ ≈/* b* ^ * * * \* _ * `!+ Δ i6 ≈2 c∞078436ó1∞4!2ì`3 ¢£a¢£bR3P$µQëµRë ¢£a¢£b¢£cSP&µQRíµSë04 d†°`¢°a≥$Q%∂Pë∂QëÇ 'B translate7 Define Generic translate++ –+ Œ+ œ6 –2 4 4 2 j4 delete j†°`≤#¥†††ì¥%&'ì¥Pëá (C j7 "Define Method translate-+ ’+ ÷+ ◊+ ⁄+ ’6 ’2 <byte-string>4 4 2 j9 k 7 j++ €.* ^ * * k*to-set*from-set* ` + ‹ )*table m+ ‹ m6 €2make-translation-table k6 ‹2run-translator6 ‹2 ∞65!4î`≤7P32aQ Q ≥7ëî04 j†°`†°a†°b†°c≤#S$µPQRìµSëÇ &Bmake-translator7 Define Generic make-translator*+ ‚+ ·6 ‚2 -4 4 2 t4 6 ·2 k t†°`≤#¥••í¥&ë¥Pëá 'C t7 Define Method make-translator,+ Ê+ Á+ È+ Ê6 Ê2 l4 6 È2 -4 2 t9 k7 t-+ Í+* k * n * o+ Î )* q u+ Ï v+ Î v+ Î u6 Í2 r k6 Î2 l4 9 7 )+ Ì,* q* ^ * * `6 Ì2 s6 Ì2 ∞5043`P P ±5ëî14 ∞43!2î`¢£a¢£bRP$µQëµRë04 t†°`†°a¢°b≥$R%∂PQí∂RëÇ 'C r7 $Define Method make-translation-table,+ Ù+ ı+ ˜+ Ù6 Ù2 l4 6 ˜2<byte-character-table>4 2 r9 k7 ô r1 + ˘+* k * n * o+ ˙ )* from-index y+ ˚ )*to-index z+ ¸ )* previous-from |+ )*next-from-character )* previous-to ~+ )*next-to-character Ä+ * Ñ+ +" )* q Ñ+ + )*dummy8 Ü+ , )*c< á+ / Ü+ 0 Ü+ 0 )* from-char$ Ü+ 1 )*to-char( ã+ 2 ç+ / ç+ 0 ç+ 5 Ü+ 5 y9 7 o Å 1+ +* * o* {+ è+ è+ è+ è+ è+ è+ è+ è+ è+ è+ è6 2 4element \ -6 2 successor0∞1ë˜ ±10í"Ù 0 0±10 Òí2±10í#Ù $ 2±10 íÙ 0 0±10r¥2ë20 0±10 Òí24 9 7 x Ö 1+ ,* É* k * n* }+ í+ í+ í+ í+ í+ í+ í+ í+ ! í+ % í+ & í6 2 6 2last4 ê \ -6 !2 ë0∞1ë˜ 2 ±1q≤10í#Ù 0 0≤10 Òí3≤10í$Ù $ 3≤10 íÙ 0 0≤10rµ3ë30 0≤10 Òí36 *2 G6 *2 x4forward-iteration-protocol4element-setter ` abcR4P ±êdS23Q"±êe≥§ëfVgµWÅ mlkjih[WXYì $ ]WXín\WXío_o∂_V_É ZWXíh ÃˇˇˇTêgUêhWiXjYÙ Zk∂[VYÉ Têk[gUêl\h ÿˇˇˇV04 r†°`†°a¢°b≥$R%∂PQí∂RëÇ 'C s7 ' Define Method run-translator-+ ;+ <+ =+ >+ ;6 ;2 l4 6 <2 x6 =2 U4 2 s9 7 a s1+ ?,* end-index * start-index * q*source+ @ )* dest-string ñ+ A )* dest-index ö+ A )* source-index ú+ B û+ B )*char û+ C †+ D †+ E †+ L ú+ M ú+ N ú+ O ú+ O ñ6 ?2 copy-sequence4 ê4 ï6 O2replace-subsequence! ∞5ë`3a3b2cRdSRÛ / ±5Tíe±4Uíˆ ±4Uíf≤VPQÉ Q a R b ¬ˇˇˇQ2Ù P ≥P$%Q&2ñ04 s†°`¢°a£°b£°c†°d¥%T&∑PQRSî∑TëÇ (Bsplit7 Define Generic split *+ + V4 2 §4 6 V2 \remove-empty-items §∞!≤££í≤$%&'îá (C §7 Define Method split++ [+ ^+ [6 [2 4 4 2 §9 \ • 7 . §,+ _.* ^ * * •* \* `*pattern + ` )* b ¶+ a ®+ a ¶6 _2 ,6 `2 split-string6 `2 4 '4 (4 *9 7 )+ 204 4 +∞7ë`±P632aQ Q ≤6ë54Ü`≥§µ0&∑®ëPÇ Pr4 §†°`†°a†°b≤#R$µPQíµêRÇ &B make-splitter7 Define Generic make-splitter)+ e6 e2 -4 4 2 ™4 6 e2 ™†°`≤#¥•ë¥Pëá &C ™7 Define Method make-splitter)+ g6 g2 4 6 g2 -4 2 ™9 7 ™-+ h)* ß + i )* b ´+ k ¨+ i ¨+ i ´6 h2 ,6 i2 4 9 \ • 7 **+ l.* b* ^ * * •* \*string + m ≠6 l2 ©6 l2 4 '4 (4 *9 7 )+ 204 4 +∞0743`P P ±7ë65Ü`≤£¥1%∂ßëPÇ Pr4 ∞2ë`°¢a°¢bRP#¥Që¥êR04 ™†°`¢°a≥$Q%∂Pë∂QëÇ 'C ©7 0Define Method split-string.+ t+ u+ v+ w+ x+ t6 t2 -4 6 t2 6 u2 U6 v2 6 w2 +4 2 ©9 7 - ©,+ y.* • * \ * ^* * `* b + z )*strings Ø+ ï ∞+ ï Ø6 y2 G6 y2<deque>6 z4catch9 7 ©1+ z )*done /* •* ±* \* ^ * ` * b* + { ¥+ | )*end-of-last-match ¥+ } )*start-of-where-to-look ∑+ Å )* string-number π+ Ç. ** substring-end*substring-start ª+ É Ω+ Ñ Ω+ Ö Ω+ Ü Ω+ á Ω+ â Ω+ ä Ω+ å Ω+ ç Ω+ é Ω+ è Ω+ ê Ω+ ë Ω+ ã Ω+ ç Ω+ é Ω+ è Ω97 µ )+ z4 '4throw∞°02s4 6 É2 push-last6 Ñ2 ¢ 8 ±ê` a0b c12"R#3ÖedT fV V 4 4SÛ ¥5µ2&Qìí5PÄ H TRÙ * 6 UaQb ¥5µ2'Q(Tïí5S cUaQb ¥5µ2)Q*Tïí5S cUaQb gˇˇˇ4 4 +6 ï2 '6 ï2 (4 '4 (4 *9 7 )+ 20∞°ë`≤2P34675#¥•ëÅ ∂ßPÇ`∏©∫0+¥•ëPÇ Pr4 ©†°`¢°a£°b£°c§°d•°e¢°f∂'V(πPQRSTUñπêVÇ *Bjoin7 Define Generic join*+ ú+ õ 6 ú2 4 4 2 ¬4 ¬†°`≤#¥†ë¥Pëá %C ¬7 Define Method join++ °+ ¢+ °6 °2 4 4 2 ¬97 ∏ ¬ 1 + £** ± * delimiter + §" )*length √+ • )* Æ ≈+ ß ≈+ ® )* big-string ≈+ © )* big-index »+ © )*i + ™ Ã+ ´ )* Æ Ã+ ¨ )* new-index Œ+ ≠ œ+ Æ œ+ Ø œ+ ∞ )* – œ+ ± —+ ≤ —+ ¥ + ∂ + ∑ + π + π √6 £2max6 £2*6 £2 4 î6 ß2 G6 ß2<unicode-string> 4 ê6 ¨2 £ 6 ∂2 ì ∞ ±≤2ë Ò≤3ëíí`2a≥QÅ gfedcbUQRSì WQRíhP≤Xë`TQRíb Ÿˇˇˇ¥•&Pìa b c≤2ë ÒdSeTSÚ 1 ∑2UífR≤Vëg∏QV)R*WñaWbR≤3ëh∏Q3+R,XñaXbS c ¿ˇˇˇ≤2ë ¯ ∏QΩ2ë.R/≤Qëña Q04 ¬†°`†°a≤#Q$µPëµQëÇ &ˇ# compilation (2.1) of substring-search.dylan # produced with the 1.2 version of mindycomp nxöæ<String-extensions> substring-search.dylan=substring-search@ <integer?>7 Define Constant <integer?>)+.6 .2union6 .2 <integer>6 .2 singleton4 init-variable2 ∞°≤ëí`≥$PÉ Csubstring-position7 " Define Method substring-position++9+; +86 92 <byte-string>4<type>6 ;2 6 ;2 4%define-method2 9start endcase-sensitive7 C -+:,* * *pattern*big +< )*big-end += )* comparison +> )*compiled-pattern +> 6 :2size6 <2=6 <2case-insensitive-equal6 =2compile-substring6 >2find-substring4apply4values4do9 7 )+ 204list4<object>4ı ∞7ë 4`3 ° ¢a≥6Qíb¥765PQRÜbaµ¶Q0∑1(π™ëRÇ Rs4 †°`†°a¢°b£°c¥%SR&∑PQí∑RëSÇ (Cmake-substring-positioner7 'Define Method make-substring-positioner++C+D+B6 C2 4 6 D2 <function>4 2 !9 7 0 !.+E** * +F )* #+G )* $+H %+G %+G #6 E2 6 E2 6 F2 6 G2 4 6 H2 6 H2 9 7 0*+G-* * * * * !+I )* &6 G2 6 I2 4 4 9 7 )+ 204 4 6ı ∞8ë 6`±807P12Üba≤£Q3¥4%∂ßëRÇ Rs4 2 † °`≤3Pía£§b•§c¶§dTSQP3'∏Rë∏SëT04 !†°`¢°a≥$Q%∂Pë∂QëÇ 'C 2 Define Method find-substring.+W+X+Y+Z+[ +W6 W2 4 6 Y2 6 Z2 "6 [2 4 2 7 , 1+\.* *equal?* * * * !+^ )*pat-sz (+_ *+` *+a *+b *+c )*ch *+c )*key ,+d .+f .+f *+h *+i *+i )*ch1 *+j 0+k )*ch2 0+k )* / 2+l2 4+n 4+n *+q *+q )*pat-last *+r 5+s )* last-char 5+s )*skip 7+t )*search 9+ ã ;+ ã *+ ç )*start-of-occurence *+ é =+ è =+ ê =+ ê (6 \2 4element9 7 v <1+u1 * : * <* * 6* 8 * ) * * *index%+v @+x @+y )*char @+{ B+| B+| )*pat-key B+| )*big-key D+}$ F+ F+ Ä F+ Ç F+ á B4 ?6 á2as6 á2<fixed-integer>90˜ ∞19í`2P3í Q a4b94ÒcQdSeRQÛ $ 2∞1Uí∞5Tíí Q aS c –ˇˇˇ T4ı 94Ò69 q69∞7±¢Pííq4 4 6 é2 4 4 4 9 7 )+ 20∞7ë`PaQ ı 6 Ï Q ı I ±7 íb6c5dSeTSÛ 4±8UíRí S c ’ˇˇˇU5Ú U ö Q ı k ±7 íb±7 íc6d5 ÒeTfUTÛ 2 4±8VíRí 4±8V íSí T d øˇˇˇV5 ÒÚ V & P Òb±7Ríc3deTU7RS485"≥§ëUU6RëaQ µQQPÇ a`∂ßP0∏1)≥§ëQÇ Qs4 4 †°`†°a¢°b¢°c£°d§°e¢°fµ&VU'∏PQRST©ñ∏UëVÇ *C 7 Define Method compile-substring*+ ú + õ6 ú2 4 6 ú2one-of6 ú2 6 ú2 4 2 9 7 ã 1+ û** )* + ü )*sz K+ ° L+ ¢ L+ £ )*result L+ £ )* A N+ £ )* : P+ § Q+ • Q+ ¶ Q+ ß Q+ ® Q+ ´ N+ ´ K6 û2 6 ¢2make6 ¢2<vector> fill6 §2 4element-setter6 •2 H6 •2 I6 •2 as-lowercase4 ?6 ¶2 as-uppercase∞2ë`P Ú w ±¢# $Pïa bP ÒcP Òd ˇeRfTgSRÛ I 1•ı % Wh∂XQ∑®π∫2VíëíÉ Wh∂XQ∑®ª∫2VíëíÉ Wh∂XQ∑®∫2VííÉ R bTUd ¶ˇˇˇQ4 4 †°`≤£§í°aµ&'∏PQí∏©ëÇ *Csubstring-replace7 " Define Method substring-replace,+ ±+ ≤+ ¥+ ∞6 ±2 4 4 2 X9count 7 " X,+ ≥-* * Y* replace-with* search-for* + µ )* input-end Z+ ∂ )* positioner ]+ ∂ ]6 ≥2 6 µ2 !6 ∂2do-replacement2ı ∞7ë 2`±6ëa≤Q573P4ó04 X†°`†°a†°b†°c≤#S$µPQRìµSëÇ &Cmake-substring-replacer7 %Define Method make-substring-replacer++ ª+ º+ ∫6 ª2 4 6 º2 "4 2 b9 [ 7 @ b1+ Ω+* * [ * \+ æ c+ ø )* ` c+ ¿ d+ ¬ d+ ¿ d+ Δ d+ « d+ … d+ « d+ « c6 Ω2 ! 6 ¿2 4 9 Y 7 ++ ¡-* [* `* * Y* + √ )* ^ e+ ƒ f6 ¡2 6 √2 a4ı ∞7ë 4`±0175P6ó24 6 «2<string>9 Y 7 ++ »-* `* * Y* [* + )* ^ h+ À i6 »2 6 2 a3ı ∞7ë 3`±0674P5ó1∞4!2ì`3 ¢£a¢£bR3P$µQëµRë ¢£a¶£b¢£cSP'µQRíµSë04 b†°`¢°a≥$Q%∂Pë∂QëÇ 'ˇ 
